object ImageViewer: TImageViewer Left = 180 Top = 134 Width = 473 Height = 341 Caption = 'Image Viewer' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 465 Height = 41 Align = alTop TabOrder = 0 object SaveBut: TSpeedButton Left = 16 Top = 8 Width = 25 Height = 25 Hint = 'Save Image' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333330000000000000300003333330788888888880300003333 330F77777777780300003333330F99777777780300003333330FFFFFFFFFF703 0000333333000000000000030000333333333333333333330000333333333333 33003333000033333333333330000333000030000000033300000033000030FF FFFF033333003333000030F4444F033333003333000030FFFFFF033338003333 000030F4444F030000083333000030FFFFFF030000833333000030F44F000333 33333333000030FFFF0033333333333300003000000333333333333300003333 33333333333333330000} OnClick = Save1Click end object ExitBut: TSpeedButton Left = 424 Top = 8 Width = 25 Height = 25 Hint = 'Exit' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 OnClick = Exit1Click end object PrintBut: TSpeedButton Left = 160 Top = 8 Width = 25 Height = 25 Hint = 'Print Image' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DD000DDDDDDDDDD000DD0000D000 000000000000000D0000D0F8888888888888880D0000D0F8888888888888880D 0000D0F8888888822899880D0000D0FFFFFFFFFFFFFFFF0D0000D70077777777 7777007D0000DDD00000000000000DDD0000DDD00FFFFFFFFFF00DDD0000DDDD 0F00000000F0DDDD0000DDDD0FFFFFFFFFF0DDDD0000DDDD0F00000000F0DDDD 0000DDDD0FFFFFFFFFF0DDDD0000DDDD0F00FFFFFFF0DDDD0000DDDD0FFFFFFF FFF0DDDD0000DDDD000000000000DDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDD DDDDDDDDDDDDDDDD0000} OnClick = PrintButClick end object PrintSetupBut: TSpeedButton Left = 184 Top = 8 Width = 25 Height = 25 Hint = 'Printer Setup' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 OnClick = PrintSetup1Click end object ZoomOutBut: TSpeedButton Left = 232 Top = 8 Width = 25 Height = 25 Hint = 'Zoom Out' Glyph.Data = { 16050000424D160500000000000036040000280000000E0000000E0000000100 080000000000E000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030303030303000003030303030303030303030303030000030303030303 0303030303030303000003030303030303030303030303030000030303030303 0303030303030303000003030303030303030303030303030000030300000000 00000000000003030000030300FFFFFFFFFFFFFFFF0003030000030300000000 0000000000000303000003030303030303030303030303030000030303030303 0303030303030303000003030303030303030303030303030000030303030303 0303030303030303000003030303030303030303030303030000} OnClick = ZoomOutButClick end object ZoomInBut: TSpeedButton Left = 256 Top = 8 Width = 25 Height = 25 Hint = 'Zoom In' Glyph.Data = { 16050000424D160500000000000036040000280000000E0000000E0000000100 080000000000E000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030303030303000003030303030303030303030303030000030303030303 0303030303030303000003030303030000000303030303030000030303030300 FF000303030303030000030303030300FF000303030303030000030300000000 FF000000000303030000030300FFFFFFFFFFFFFF000303030000030300000000 FF000000000303030000030303030300FF000303030303030000030303030300 FF00030303030303000003030303030000000303030303030000030303030303 0303030303030303000003030303030303030303030303030000} OnClick = ZoomInButClick end object LoadImageBut: TSpeedButton Left = 40 Top = 8 Width = 25 Height = 25 Hint = 'Load Image' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333000030000000000000333333000030788888888880333333000030F7 7777777780333333000030F99777777780333333000030FFFFFFFFFF70333333 0000300000000000003333330000333333333333333333330000333003333333 3333333300003330033333333333333300003330033333300000000300003330 03303330FFFFFF030000333008300330F4444F030000333800000030FFFFFF03 0000333380000030F4444F030000333333300330FFFFFF030000333333303330 F44F00030000333333333330FFFF003300003333333333300000033300003333 33333333333333330000} OnClick = Open1Click end object CopyClipBut: TSpeedButton Left = 88 Top = 8 Width = 25 Height = 25 Hint = 'Copy Image To Clipboard' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 OnClick = CopyToClipboard1Click end object PasteBut: TSpeedButton Left = 112 Top = 8 Width = 25 Height = 25 Hint = 'Paste From Clipboard' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0 FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0 0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039 9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999 9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039 99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999 93337777FF777777733370000000073333333777777773333333} NumGlyphs = 2 OnClick = PasteFromClipboard1Click end end object ScrollBox1: TScrollBox Left = 10 Top = 51 Width = 445 Height = 215 Align = alClient TabOrder = 1 object Image: TJPEGImage Left = 0 Top = 0 Width = 161 Height = 121 AutoSize = True Center = True ParentShowHint = False ShowHint = False Stretch = True NumOfColors = _256 DCTMethod = Integ Dither = FS FastProcessing = False GrayScale = False NoSmooth = False OnePass = False end end object StatusBar1: TStatusBar Left = 0 Top = 276 Width = 465 Height = 19 Panels = <> SimplePanel = True end object Panel2: TPanel Left = 455 Top = 51 Width = 10 Height = 215 Align = alRight BevelOuter = bvNone TabOrder = 3 end object Panel3: TPanel Left = 0 Top = 266 Width = 465 Height = 10 Align = alBottom BevelOuter = bvNone TabOrder = 4 end object Panel4: TPanel Left = 0 Top = 51 Width = 10 Height = 215 Align = alLeft BevelOuter = bvNone TabOrder = 5 end object Panel5: TPanel Left = 0 Top = 41 Width = 465 Height = 10 Align = alTop BevelOuter = bvNone TabOrder = 6 end object MainMenu1: TMainMenu Left = 168 Top = 88 object File1: TMenuItem Caption = '&File' ShortCut = 0 object Open1: TMenuItem Caption = '&Open' ShortCut = 0 OnClick = Open1Click end object Save1: TMenuItem Caption = '&Save' ShortCut = 0 OnClick = Save1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Print1: TMenuItem Caption = '&Print' ShortCut = 0 OnClick = PrintButClick end object PrintSetup1: TMenuItem Caption = 'Print Set&up' ShortCut = 0 OnClick = PrintSetup1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = Exit1Click end end object Edit1: TMenuItem Caption = '&Edit' ShortCut = 0 object CopyToClipboard1: TMenuItem Caption = '&Copy To Clipboard' ShortCut = 0 end object PasteFromClipboard1: TMenuItem Caption = '&Paste From Clipboard' ShortCut = 0 OnClick = PasteFromClipboard1Click end end object Options1: TMenuItem Caption = '&Options' ShortCut = 0 object JPG1: TMenuItem Caption = '&JPG' Enabled = False ShortCut = 0 object Colors1: TMenuItem Caption = '&Colors' ShortCut = 0 object N16Color1: TMenuItem Caption = '&16 Color' GroupIndex = 1 ShortCut = 0 OnClick = N16Color1Click end object N256Color1: TMenuItem Caption = '&256 Color' Checked = True GroupIndex = 1 ShortCut = 0 OnClick = N256Color1Click end object TrueColor1: TMenuItem Caption = '&True Color' GroupIndex = 1 ShortCut = 0 OnClick = TrueColor1Click end end object GrayScale1: TMenuItem Caption = '&Gray Scale' ShortCut = 0 OnClick = GrayScale1Click end object Smooth1: TMenuItem Caption = '&Smooth' ShortCut = 0 OnClick = Smooth1Click end object SinglePass1: TMenuItem Caption = '&One Pass' ShortCut = 0 OnClick = SinglePass1Click end object FastProcessing1: TMenuItem Caption = '&Fast Processing' ShortCut = 0 OnClick = FastProcessing1Click end end object GIF1: TMenuItem Caption = '&GIF' Enabled = False ShortCut = 0 object ImageInformation1: TMenuItem Caption = '&File Information' ShortCut = 0 OnClick = ImageInformation1Click end end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object ImageViewer1: TMenuItem Caption = '&Image Viewer' ShortCut = 0 OnClick = ImageViewer1Click end end end object SaveDialog: TSaveDialog FileEditStyle = fsEdit Filter = 'GIF File|*.gif|BMP File|*.bmp|SIF File|*.sif|All Files|*.*' Options = [ofOverwritePrompt] Title = 'Save Image File' Left = 232 Top = 88 end object PrinterSetupDialog1: TPrinterSetupDialog Left = 264 Top = 88 end object OpenDialog: TOpenDialog FileEditStyle = fsEdit Filter = 'JPG Files|*.jpg|Gif Files|*.gif|Bitmap Files|*.bmp|Windows Meta ' + 'Files|*.wmf|Scaned Image Format|*.sif|All Files|*.*' Options = [ofHideReadOnly, ofFileMustExist] Title = 'Open Image File' Left = 200 Top = 88 end object PrintDialog1: TPrintDialog Left = 298 Top = 83 end object ZipMaster1: TZipMaster Verbose = False Trace = False AddCompLevel = 9 AddOptions = [] ExtrOptions = [] OnProgress = ZipMaster1Progress OnMessage = ZipMaster1Message Left = 332 Top = 85 end end